library(data.table)
library(here)
source('~/Desktop/origin_inequality/Supplementary Material/Empirical Data/Energy Adaptation/adaptation_analysis.R')
source('~/Desktop/origin_inequality/Supplementary Material/Empirical Data/Energy Adaptation/adaptation_analysis.R')
source('~/Desktop/origin_inequality/Supplementary Material/Empirical Data/Energy Adaptation/adaptation_analysis.R')
library(ggpl)
source('~/Desktop/origin_inequality/Supplementary Material/Empirical Data/Energy Adaptation/adaptation_analysis.R')
source('~/Desktop/origin_inequality/Supplementary Material/Empirical Data/Energy Adaptation/adaptation_analysis.R')
g = ggplot() +
geom_boxplot(data = d, aes(x = Type, y = `Energy (GJ/cap/yr)`))
g
source('~/Desktop/origin_inequality/Supplementary Material/Empirical Data/Energy Adaptation/adaptation_analysis.R')
kcal_to_gj = 0.000004186798*1615*1000
kcal_to_gj = 0.000004186798
kcal_to_gj*1615*1000
kcal_to_gj*1615*1000*365
kcal_to_gj*1615*1000
kcal_to_gj*1616532.12121212
kcal_to_gj*2725263.63636364
source('~/Desktop/origin_inequality/Supplementary Material/Empirical Data/Energy Adaptation/adaptation_analysis.R')
g
source('~/Desktop/origin_inequality/Supplementary Material/Empirical Data/Energy Adaptation/adaptation_analysis.R')
g
source('~/Desktop/origin_inequality/Supplementary Material/Empirical Data/Energy Adaptation/adaptation_analysis.R')
g
source('~/Desktop/origin_inequality/Supplementary Material/Empirical Data/Energy Adaptation/adaptation_analysis.R')
g
source('~/Desktop/origin_inequality/Supplementary Material/Empirical Data/Energy Adaptation/adaptation_analysis.R')
g
g = ggplot() +
geom_violin(data = d, aes(x = Type, y = `Energy (GJ/cap/yr)`))
g
source('~/Desktop/origin_inequality/Supplementary Material/Empirical Data/Energy Adaptation/adaptation_analysis.R')
g
source('~/Desktop/origin_inequality/Supplementary Material/Empirical Data/Energy Adaptation/adaptation_analysis.R')
g
kcal_to_gj*187125.441176471
source('~/Desktop/origin_inequality/Supplementary Material/Empirical Data/Energy Adaptation/adaptation_analysis.R')
kcal_to_gj*187125.441176471
kcal_to_gj*1871254.41176471
conf = function(x){
quantile(x, probs = c(0.05, 0.5, 0.95))
}
source('~/Desktop/origin_inequality/Supplementary Material/Empirical Data/Energy Adaptation/adaptation_analysis.R')
test = d[, conf(Energy), by = "Type"]
View(test)
test = d[, as.list(conf(Energy)), by = "Type"]
View(test)
source('~/Desktop/origin_inequality/Supplementary Material/Empirical Data/Energy Adaptation/adaptation_analysis.R')
source('~/Desktop/origin_inequality/Supplementary Material/Empirical Data/Energy Adaptation/adaptation_analysis.R')
source('~/Desktop/origin_inequality/Supplementary Material/Empirical Data/Energy Adaptation/adaptation_analysis.R')
source('~/Desktop/origin_inequality/Supplementary Material/Empirical Data/Energy Adaptation/adaptation_analysis.R')
source('~/Desktop/origin_inequality/Supplementary Material/Empirical Data/Energy Adaptation/adaptation_analysis.R')
source('~/Desktop/origin_inequality/Supplementary Material/Empirical Data/Energy Adaptation/adaptation_analysis.R')
g
g = ggplot() +
geom_boxplot(data = d, aes(x = Adaptation, y = Energy))
g
